Shareware Grab Bag/Shareware Grab Bag.iso/090/pcpm.arc/PCPM.BAS

BASIC Source File | 1985-06-04 | 5KB | 180 lines

10 CLS
20 PRINT
30 REM ******************
40 REM TOP LINE
50 REM ******************
60 PRINT CHR$(201);
70 FOR R=1 TO 74
80 PRINT CHR$(205);
90 NEXT R
100 PRINT CHR$(187)
110 REM **********************
120 REM THE MIDDLE STARTS HERE
130 REM **********************
140 LOCATE 3,1
150 PRINT CHR$(186);
160 LOCATE 3,76
170 PRINT CHR$(186)
180 LOCATE 4,1
190 PRINT CHR$(186)
191 LOCATE 4,20
192 PRINT"PERSONAL COMPUTER PROJECT MANAGEMENT"
200 LOCATE 4,76
210 PRINT CHR$(186)
220 LOCATE 5,1
230 PRINT CHR$(186)
240 LOCATE 5,76
250 PRINT CHR$(186)
260 LOCATE 6,1
270 PRINT CHR$(186)
280 LOCATE 6,76
290 PRINT CHR$(186)
300 LOCATE 7,1
310 PRINT CHR$(186)"     If  you use this program  and find it helpful,";
320 PRINT " a registration fee"
330 LOCATE 7,76
340 PRINT CHR$(186)
350 LOCATE 8,1
360 PRINT CHR$(186)"     of  $50.00  would be appreciated.  Complete documentation";
370 PRINT " will be"
380 LOCATE 8,76
390 PRINT CHR$(186)
400 LOCATE 9,1
410 PRINT CHR$(186)"     sent to you upon receipt of the registration fee."
420 LOCATE 9,76
430 PRINT CHR$(186)
440 LOCATE 10,1
450 PRINT CHR$(186)
460 LOCATE 10,76
470 PRINT CHR$(186)
480 LOCATE 11,1
490 PRINT CHR$(186)"     You are encouraged to copy and share this program";
500 PRINT " with others who"
510 LOCATE 11,76
520 PRINT CHR$(186)
530 LOCATE 12,1
540 PRINT CHR$(186)"     you  feel  may  benefit  from  it,  on  the  condition";
550 PRINT"  that  the"
560 LOCATE 12,76
570 PRINT CHR$(186)
580 LOCATE 13,1
590 PRINT CHR$(186)"     program  is  not  distributed  in modified form, that";
600 PRINT" no  fee  is"
610 LOCATE 13,76
620 PRINT CHR$(186)
630 LOCATE 14,1
640 PRINT CHR$(186)"     charged, and that this notice is not changed, bypassed or removed."
650 LOCATE 14,76
660 PRINT CHR$(186)
670 LOCATE 15,1
680 PRINT CHR$(186)
690 LOCATE 15,76
700 PRINT CHR$(186)
710 LOCATE 16,1
720 PRINT CHR$(186)"     Send a check or money order to:
730 LOCATE 16,76
740 PRINT CHR$(186)
750 LOCATE 17,1
760 PRINT CHR$(186)
770 LOCATE 17,76
780 PRINT CHR$(186)
790 LOCATE 18,1
800 PRINT CHR$(186)
810 LOCATE 18,34
820 PRINT "Greg Gothard"
830 LOCATE 18,76
840 PRINT CHR$(186)
850 LOCATE 19,1
860 PRINT CHR$(186)
870 LOCATE 19,34
880 PRINT "1141 Amador Ave."
890 LOCATE 19,76
900 PRINT CHR$(186)
910 LOCATE 20,1
920 PRINT CHR$(186)
930 LOCATE 20,34
940 PRINT "Berkeley, CA 94707"
950 LOCATE 20,76
960 PRINT CHR$(186)
970 LOCATE 21,1
980 PRINT CHR$(186)
990 LOCATE 21,76
1000 PRINT CHR$(186)
1010 REM *********************
1020 REM THIS IS THE LAST LINE
1030 REM *********************
1040 PRINT CHR$(200);
1050 FOR R=1 TO 74
1060 PRINT CHR$(205);
1070 NEXT R
1080 PRINT CHR$(188)
1090 INPUT "Strike the return key to continue...",X$
1200 REM Version 3.00 (C)Copyright CONSTRUCTION SCHEDULING 1983
1210 KEY OFF:COLOR 10,0,1:WIDTH 40:CLS
1220 LOCATE 5,5,0:PRINT "Critical Path Method Scheduling"
1230 LOCATE 7,3,0:PRINT "Personal Computer Project Management"
1240 COLOR 15,0:LOCATE 10,9,0:PRINT STRING$(23,178)
1250 LOCATE 11,9,0:PRINT CHR$(178)+STRING$(21,32)+CHR$(178)
1260 LOCATE 12,9,0:PRINT CHR$(178)+"        PCPM         "+CHR$(178)
1270 LOCATE 13,9,0:PRINT CHR$(178)+STRING$(21,32)+CHR$(178)
1280 LOCATE 14,9,0:PRINT CHR$(178)+"    Version 3.00     "+CHR$(178)
1290 LOCATE 15,9,0:PRINT CHR$(178)+STRING$(21,32)+CHR$(178)
1300 LOCATE 16,9,0:PRINT STRING$(23,178)
1310 COLOR 9,0:LOCATE 19,6,0:PRINT "(C) Copyright LEN SHEPARD 1983"
1320 COLOR 14,0:LOCATE 23,7,0:PRINT "Press space bar to continue"
1330 IF INKEY$ <> "" THEN GOTO 1330
1340 CMD$ = INKEY$
1350 IF CMD$ = " " THEN GOTO 1370
1360 GOTO 1340
1370 COLOR 7,0:CLS
1380 WIDTH 80
1390 DIM B$(20)
1400 O5=15          'NUMBER OF OPTIONS
1410 A$="MENU OF PCPM OPTIONS"
1420 FOR I=1 TO O5
1430 READ B$(I)
1440 NEXT I
1450 PRINT
1460 DATA "INFORMATION","ENTER/CHANGE SUBCONTRACTOR/COMMENT FILE"
1470 DATA "ENTER/CHANGE INPUT FILE"
1480 DATA "CREATE/CHANGE HOLIDAYS"
1490 DATA "PERFORM CRITICAL PATH ANALYSIS","PERFORM CASH FLOW ANALYSIS"
1500 DATA "PRODUCE BAR CHARTS"
1510 DATA "SORT OUTPUT","EXTRACT OUTPUT BY SUBCONTRACTOR","CHECK NODE NUMBERS"
1520 DATA "GET PRECEDENCE OR SUCCEEDENCE DISPLAY"
1530 DATA "CONVERT WORKING DAYS TO PROJECT DAYS"
1540 DATA "GENERATE CURRENT COST REPORT","CHANGE ALL NODE NUMBERS"
1550 DATA "CONSOLIDATE UPDATE FILES TO INPUT FILES"
1560 PRINT TAB(22);A$
1570 PRINT
1580 PRINT TAB(10);"EXIT PCPM SYSTEM";TAB(50);"-  0"
1590 FOR I=1 TO O5
1600 IF I>9 THEN 1630
1610 PRINT TAB(10);B$(I);TAB(50);"- ";I
1620 GOTO 1640
1630 PRINT TAB(10);B$(I);TAB(50);"-";I
1640 NEXT I
1650 PRINT
1660 INPUT "CHOOSE THE ACTION BY ENTERING THE CORRECT INTEGER ",N
1670 PRINT
1680 IF N=0 THEN 1860
1690 IF N>O5 OR N<0 THEN 1530
1700 ON N GOTO 1710,1730,1720,1740,1750,1760,1770,1780,1790,1800,1810,1820,1830,1840,1850,1640
1710 CHAIN "CPAINFO"
1720 CHAIN "CPACUI"
1730 CHAIN "CPASBC"
1740 CHAIN "CPAHOLY"
1750 CHAIN "CPACPM"
1760 CHAIN "CPACFA"
1770 CHAIN "CPABAR"
1780 CHAIN "CPASORT"
1790 CHAIN "CPASUBS"
1800 CHAIN "CPANODE"
1810 CHAIN "CPAPRES"
1820 CHAIN "CPADAYS"
1830 CHAIN "CPACOS"
1840 CHAIN "CPACORC"
1850 CHAIN "CPAUPD"
1860 PRINT:PRINT "EXITING PCPM SYSTEM - GOODBYE FOR NOW"
1870 END